home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS2.lha / QLsource / ROMsrc / SYS / PROCS7_asm < prev    next >
Text File  |  1991-12-21  |  897b  |  36 lines
  1. */beginfile PROCS7_asm
  2. ; --------------------------------------------------------------
  3. ; PROCS7_asm - BASIC bits
  4. ;        - last modified 10/12/91
  5. ; QDOS-Amiga sources by Rainer Kowallik
  6. ;    ...some changes by Mark J Swift
  7. ; --------------------------------------------------------------
  8. ; subroutines to get parameter etc.
  9. L064A2:
  10.     MOVE.L    A4,-(A7)
  11.     MOVEQ    #$0F,D0
  12.     AND.B    -7(A6,A5.L),D0
  13.     SUBQ.B    #1,D0
  14.     BEQ.S    L064D6
  15.     MOVEQ    #0,D0
  16.     MOVE.W    -6(A6,A5.L),D0
  17.     BLT.S    L064DC
  18.     MOVEA.L    $18(A6),A1    ; name table
  19.     LSL.L    #3,D0
  20.     ADDA.L    D0,A1
  21.     MOVEA.L    $20(A6),A0    ;BV.NLBAS   name list
  22.     ADDA.W    2(A6,A1.L),A0
  23.     MOVEQ    #0,D1
  24.     MOVE.B    0(A6,A0.L),D1
  25.     LEA    1(A0),A4
  26.     JSR    L05F88(PC)    ;*/undomodify BSR L05F88
  27.     BRA.S    L064DE
  28. L064D6    JSR    L05EC8(PC)    ;*/undomodify BSR L05EC8
  29.     BRA.S    L064DE
  30. L064DC    MOVEQ    #-12,D0        ; bad name error
  31. L064DE    MOVEA.L    (A7)+,A4
  32.     RTS
  33.  
  34. ; --------------------------------------------------------------
  35. ;*/endfile
  36.